home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / graphics / bitmap / bitmapte.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-07-21  |  11.0 KB  |  308 lines
  1. BitmapTest
  2. >Bitmaps, Device Contexts, Image and Picture Properties, Oh My!
  3. Form1,
  4. VB_Cls
  5. VB Cls -->
  6. VB_Cls
  7. VB Cls -->
  8. VB_Refresh
  9. VB Refresh  -->
  10. VB_Refresh
  11. VB Refresh  -->
  12. VB_LoadPic
  13. LoadPicture()...
  14. VB_LoadPic
  15. LoadPicture()...
  16. SavePic
  17. SavePicture()...
  18. SavePic
  19. SavePicture()...
  20. 3    Blt2Image
  21. BitBlt --> Image
  22. BitBlt_P1toP2
  23. >-- BitBlt -->
  24. GdiDraw_P1
  25. VB Draw Mode
  26. VB_Transfer_P1toP2
  27. >-- VB Transfer -->
  28. ToClip
  29. To Clipboard -->
  30. ToClip
  31. To Clipboard -->
  32. FromClip
  33. From Clipbrd -->
  34. FromClip
  35. From Clipboard -->
  36. HideShow
  37. Hide Picture -->
  38. HideShow
  39. Hide Picture -->
  40. Image2Picture
  41. Image-->Picture
  42. Image2Picture
  43. Image-->Picture
  44. AutoRedrawPic
  45. &AutoRedraw
  46. ColorSet
  47. Label1
  48. AutoRedrawPic
  49. &AutoRedraw
  50. ColorSet
  51. Label2
  52. PopOver
  53. Pop Over...
  54. Label3
  55. &Blt Mode:
  56. GDIRefresh
  57. &GDI Draw Auto-Refresh
  58. GDIRefresh
  59. &GDI Draw Auto-Refresh
  60. BltMode
  61. Frame1
  62. VB &Source
  63. SrcPicture
  64. .Picture
  65. SrcImage
  66. .Image
  67. Frame2
  68. VB &Destination
  69. DestPicture
  70. .Picture
  71.     DestImage
  72. .Image
  73. I'VE HAD IT!
  74. Status
  75. Command4_Click
  76. P1_ClickQ
  77. Form_Click
  78. mFile_Click
  79. Command6_Clickg
  80. Command13_Click
  81.     Form_Load
  82. Caption'
  83. Quit_Click
  84. Check1_Click;
  85. AutoRedrawP1_Click
  86. AutoRedrawP1
  87. ValueT
  88. AutoRedrawy
  89. AutoRedrawP2_Clickr
  90. AutoRedrawP2Q
  91. Command5_Click
  92. VB_Cls_P1_Click
  93. VB_Cls_P2_Click
  94. LoadPic_P1_Click
  95. Picture
  96. VB_Refresh_P1_Click
  97. Status+
  98. PopOver_Click=
  99. PopOverd
  100. MODELESS9
  101. MODAL*
  102. PopOverFormA
  103. P1_MouseDownO
  104. Button
  105. Shift
  106. P1_MouseUp
  107. False
  108. P1_MouseMove
  109. VB_Re_Click
  110. VB_Refresh_P2_Click
  111. BitBlt_P1toP2_Click"
  112. ResultU
  113. BitBlt 
  114.     ScaleMode
  115. ScaleWidthq
  116. ScaleHeight>
  117. SRCCOPYC
  118. Stretch1_Click#
  119. StretchBlt
  120. Stretch2_Click
  121. VB_Transfer_P1toP2_Click
  122. SrcPicture
  123. DestPicture
  124. Image
  125. GdiDraw_P1_Click
  126. ToClip_P1_ClickK
  127.     ClipBoard
  128. ToClip_P2_Click
  129. FromClip_P1_Clicku
  130. FromClip_P2_Click
  131. LoadPic_P2_ClickG
  132. GDIDraw_P1
  133. SetPixel6
  134. MoveToc
  135. LineToY
  136. Command1_Click
  137. HideShow_Click
  138. IndexV
  139. HideShowx
  140. Visible
  141. VB_Cls_Click
  142. VB_Refresh_Click
  143.     Refreshed
  144. VB_LoadPic_P1_ClickY
  145. VB_LoadPic_Click
  146. LoadPic_Click
  147. Able_Click
  148. Ablea
  149. Enabled
  150. Blt2Image_Click
  151.     hScreenDC
  152. GDIRefreshp
  153. ModeC
  154. Image2Picture_Click
  155. BltMode/
  156.     ListIndex
  157. SRCPAINT    
  158. SRCAND
  159.     SRCINVERT
  160. SRCERASE
  161. NOTSRCCOPY
  162. NOTSRCERASE
  163.     MERGECOPY
  164. MERGEPAINT
  165. PATCOPY
  166. PATPAINT
  167.     PATINVERT
  168.     DSTINVERT
  169.     BLACKNESS
  170.     WHITENESS
  171. BltModeArray$
  172. AutoRedrawPic_Click
  173. ColorSet_Click
  174. ColorSet
  175. ColorWidth
  176. ColorWid_
  177. ColorHgtJ
  178. AutoRedrawPic
  179. VB_Cls
  180. VB_LoadPic!
  181. VB_Refresh
  182. Image2Picture@
  183.     Blt2Image
  184. ToClip_Click
  185. FromClip_Clicko
  186. endiuf
  187. ToClip
  188. FromClip
  189. Width0
  190. ColorSetText{
  191. P1BGScrl
  192. P1FGScrl
  193.     ForeColor
  194. BackI
  195.     BackColor(
  196. BitBlt_P1toP2
  197. VB_Transfer_P1toP2
  198. FullName
  199. ThePattern
  200.     FormTitle
  201.     FOpenFormR
  202. Title
  203. Change
  204. empty
  205. reason
  206. SavePic_Click
  207. -- drawing on or off
  208. -- GDI=TRUE if drawing with GDI calls otherwise with VB methods
  209. Quit_Click
  210. PopOver_Click
  211. P1_MouseDown
  212. -- set the pixel to black
  213. -- move the current position for later LineTo'sa
  214. GDI Draw Started in P1
  215. VB Draw Started in P1"
  216. P1_MouseUp
  217. GDI Draw Stopped in P1
  218. VB Draw Stopped in P1"
  219. P1_MouseMove
  220. BitBlt_P1toP2_Click
  221. -- BitBlt the entire area of P1 to P2t
  222. P1 BitBltted to P2
  223. -- if the GDIRefresh box is checked, then refresh P2
  224. VB_Transfer_P1toP2_Click
  225. P2.Picture = P1.Picture"
  226. P2.Picture = P1.Image"
  227. GdiDraw_P1_Click
  228. VB Draw Mode
  229. Now in VB Draw Mode"
  230. GDI Draw Mode"
  231. Now in GDI Draw Mode
  232. Form_Load
  233. -- move the form to the upper left
  234. -- load the Blt Raster-OPs into the combo box for selectionn
  235. SrcCopy"
  236. SrcPaint
  237. SrcAND
  238. SrcInvert"
  239. SrcErase
  240. NOTSrcCopy
  241. NOTSrcErase"
  242. MergeCopy
  243. MergePaint
  244. PatCopy
  245. PatPaint
  246. PatInvert
  247. DstInvert"
  248. Blackness"
  249. Whiteness"
  250. -- Pixels
  251. HideShow_Click
  252. Hide Picture -->
  253. Show Picture -->
  254. Hidden
  255. -- it's already hidden and we'll be showing it
  256. Hide Picture -->
  257. Visible"
  258. -- change P1's visible propertyp
  259. P1 is now 
  260. P2 is now 
  261. VB_Cls_Click
  262. Picture 
  263.  CLSed
  264. VB_Refresh_Click
  265.  Refreshed
  266. VB_LoadPic_Click
  267.  Before calling FOPEN.FRM we can specify a new pattern
  268.  (ThePattern) a new path (ThePath) and a different
  269.  Form Title.  Change FullName to an empty string.
  270. -- we want to load either BMPs or WMFs, ICOs can't be used
  271. *.BMP;*.WMF"
  272. LoadPicture() Selection"
  273.  We want to show the form Modal and Unload it after completion
  274.  (no reason to waste resources).  Since the variables aree
  275.  global, we can unload it without worrying about referencing
  276.  properties in an unloaded form, which would cause it to reload
  277. CANCEL
  278. -- note that if no filename was selected, FullName willl
  279.    be null, which is OK with us because it'll mean thatt
  280.    we should just do a LoadPicture()
  281. .Picture=LoadPicture()
  282. Blt2Image_Click
  283. BitBlt Screen to Image [from Keith Funk (72240,2020)]
  284. point to hDC of screen.F
  285. save it.
  286. point to hDC of Image.
  287. get hDC of Screen.
  288. point to hDC of Image.
  289. P1 BitBltted to Itself
  290. -- check if we should auto refresh after the bitbltt
  291. Image2Picture_Click
  292. .Picture="
  293. .Image
  294. AutoRedrawPic_Click
  295. ColorSet_Click
  296. ToClip_Click
  297. -- copy the .Picture property to the ClipBoard
  298. ClipBoard=P1.Picture
  299. -- copy the .Image property to the ClipBoard
  300. ClipBoard=P1.Image
  301. -- copy the .Picture property to the ClipBoard
  302. ClipBoard=P2.Picture
  303. -- copy the .Image property to the ClipBoard
  304. ClipBoard=P2.Image
  305. FromClip_Click
  306. P1.Picture=ClipBoard
  307. P2.Picture=ClipBoard
  308.